﻿Imports NMock2

Imports System.Collections.Generic
Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Meiners.Libs.Withings
Imports Meiners.Libs.Withings.Core


'''<summary>
'''This is a test class for SetSubscriptionResponseTest and is intended
'''to contain all SetSubscriptionResponseTest Unit Tests
'''</summary>
<TestClass()> _
Public Class SetSubscriptionResponseTest

    Private testContextInstance As TestContext

    '''<summary>
    '''Gets or sets the test context which provides
    '''information about and functionality for the current test run.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property


    '''<summary>
    '''A test for Success
    '''</summary>
    <TestMethod()> _
        Public Sub SuccessTest_True()
        Dim status As StatusResponseEnum = StatusResponseEnum.Successfull
        Dim target As SetSubscriptionResponse = New SetSubscriptionResponse(status)
        Assert.IsTrue(target.Success, "Success should be TRUE cause of the status response enum")
    End Sub

    '''<summary>
    '''A test for Success
    '''</summary>
    <TestMethod()> _
   Public Sub SuccessTest_False()
        Dim status As StatusResponseEnum = StatusResponseEnum.UserDataIsNotPublic
        Dim target As SetSubscriptionResponse = New SetSubscriptionResponse(status)
        Assert.IsFalse(target.Success, "Success should be FALSE cause of the status response enum")
    End Sub

    '''<summary>
    '''A test for SetSubscriptionResponse Constructor
    '''</summary>
    <TestMethod()> _
    Public Sub SetSubscriptionResponseConstructorTest()
        Dim status As StatusResponseEnum = StatusResponseEnum.Successfull
        Dim target As SetSubscriptionResponse = New SetSubscriptionResponse(status)
        Assert.IsInstanceOfType(target, GetType(SetSubscriptionResponse), "Instance is not correct")
    End Sub

End Class

